cat div2.s
.globl  F00007  #(fcn lambda div2)
F00007:
.word   0x5c0
movab   linker,r8
movl    r7,r10
movab   4(r10),r6
L00008:
movl    0(r10),(r6)+    #(beginning do)
        #(from l to stack)
clrl    (r6)+   #(from nil to stack)
L00009:
tstl    4(r10)  #(beginning not)
jneq    L00010
movl    8(r10),r0       #(from a to reg)
jbr     L00011
L00010:
movl    *4(r10),r4      #(fromspec (* 4 r10) to r4)
movl    0(r4),(r6)+     #(fromspec (0 r4) to stack)
movl    4(r10),r3       #(fromspec (4 r10) to r3)
movl    4(r3),(r6)+     #(fromspec (4 r3) to stack)
movl    8(r10),(r6)+    #(from a to stack)
jsb     ←qcons
movl    r0,8(r10)       #(from reg to a)
movl    -(r6),4(r10)    #(from unstack to l)
jbr     L00009
L00011:
ret

.globl  F00012  #(fcn lambda dv2)
F00012:
.word   0x5c0
movab   linker,r8
movl    r7,r10
movab   4(r10),r6
L00013:
tstl    0(r10)  #(beginning cond)
        #(beginning not)
jneq    L00015
clrl    r0      #(from nil to reg)
jbr     L00014
L00015:
movl    0(r10),r4       #(fromspec (0 r10) to r4)
movl    4(r4),(r6)+     #(fromspec (4 r4) to stack)
movl    *0(r4),(r6)+    #(calling dv2)
        #(fromspec (* 0 r4) to stack)
movab   -4(r6),r7
calls   $0,*trantb+0
movl    r7,r6
movl    r0,(r6)+        #(from reg to stack)
jsb     ←qcons
L00014:
ret
bind←org:
.set linker←size,       0
.set trans←size,        1
.long   0
.long   0
.long -1
lit←org:
.asciz "dv2"
.asciz "div2"
.asciz "dv2"
lit←end:
%